DDDDDDDDDDDD ccccccecccccce «LLL 
DODDDDDDDDDD cccccccccccc LLL 
cecccccccccce «LLL 


DODDDDDDDDDD 
DOD DDD ccc LLL 
DOD DDD ccc LLL 
DDD DDD CCC LLL 
DDD DdbD CCC LLL 
DOD DdDD CCC LLL 
DOD DDD ccc LLL 
DDD DDD ccc LLL 
DDD DdDD ccc LLL 
DDD DDD CCC LLL 
DOD DbD CCC LLL 
DOD DOD ccc LLL 
D DDD CCC LLL 
DOD DDD ccc LLL 
DOD DOD CCC LLL 
DOD bbdD CCC LLL 
DDDODDDDDDDD CCCCCCCCCCCC LLL LLLLLLLLLLL 
DODDDDDDDDDD CCCCCCCCCCCC LLL LLLLLLLLLLL 
DDDDDDDDDDDD CCCCCCCCCCCC LLLLLELLELLLLLLLL 


*eF LE**1D**D 1 SALLOW 
DDDDDDDD 1111 SSSSSSSS AARAAA LL LL 000000 Wid ‘eld 
DDDDDDDD IIIT] SSSSSSSS AAAAAA LL LL 000000 ld wild 
dD dD I] SS AA AA LL 1% 00 00 WW ila 
dD dD I] S$ AA AA ULL LL 00 00 WwW tal 
DD DD I] S$ AA AA ULL LL 00 00 WW tole 
DD DD I] SS AA AA LL LL 00 00 WW Wiad 
DD dD I] SSSSSS AA AA LL LL 00 00 WW Wid 
dD dD I] SSSSSS AA AA LL LL 00 00 WW ‘aid 
dD dD Il SS AAAAAAAAAA LL LL 00 00 Ww WW WW 
oD dD I] SS LL LL 00 00 WW WW WW 
oD dD I] SS AA AA LL LL 00 00 WWwWW WwWW eos 
dD DD I] SS AA AA LL LL 00 00 WwW WWW cove 
DDDDDDDD III! SSSSSSSS AA AA LLLLLLLLLE LLLLLLLLLL 000000 Wl wl coe 
DDDDDDDD W111 SSSSSSSS AA AA LLLLLLLLLE LLLLLLLLLL 000000 Wel wid eee 
LL III SSSSSSSS 
LL HI! SSSSSSSS 
LL I] 3$ 
LL I] SS 
LL I] SS 
LL I] $s 
LL I] SSSSSS 
LL I] SSSSSS 
LL I] ss 
LL I] SS 
LL I] SS 
LL I] Ss 
LELLLLLLLL III! SSSSSSSS 
LLELLLLLLLL HII SSSSSSSS 


& 
or 


N—Ow~wwwww OC 


ODN EW 
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yoluate Bisat toy Expression 
spatch to Disallow Roe Evaluator | 
pis uate Path Expres 
valuate Not Express 
Evaluate mae <Expression 
Evaluate And Expres 
valuate Or Express gn 
Evaluate Xor Expression 
Evaluate Neg Path Expression 
| 
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; “TRTLS RU SALE OY Evaluate Disallow Expressions 


. 
SRARAAAEAAAAAAAAAEAAAAAAAEAAAAARAAAAAARAAAAAAAAARAAAAAAAAAAAAEAEAAAAERAERAAAAEAEEE 
. 


COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
ALL RIGHTS RESERVED. 


THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BF USED AND COPIED 
ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE 
INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER 
COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY 
OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY 


* 
* 
* 
* 
* 
* 
4 
* 
* 
* 

TRANSFERRED. * 
* 
* 
a 
* 
& 
& 
* 
* 
* 
t 


wD et ead ed at 


DAL 2S OD NA UNE WN 9 OO NAME WIN OOD NAULS WN @§ OC OONAULS LE QOONAUSE 


THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
eneponat ion NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 


DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 


Se Ge Ge Ge Ge Ge Ge Se Ge Ge Se Se Ge SeGse Sse Se SeGeteS 
eaeeneeeeeee ee eeeneenannanen 


RERAEAAAAEEAAAAAAAAAAAAAAAAAAAAAAAAEAAAAARAAAAAAARAAAAARARAAAAAAARAEEAAEAAEERES 


SGOSOSCSCOCOOCOOOSCOOOSOSOOSOSSOSSOSOOSOSOSOSSOSOSOOSOOSOOOSSoOO 
OOCOOCOCOGCOOCO SSO SSOOoooooooooooooooooooo 


SOoOoOoCooooooo SOoOOCOOSOOOOoooooooooooooooo 


SOOOOSSSSSSSGSOSSSOOSOSSOOSOSSOSSSSSoOoOOSOOOOOOOOOOOOOOOOOOOOO 


0 : AUTHOR: Peter George 01-MAR-83 
0 : ABSTRACT: These routines are called to evaluate the disallow expression 
; : for a command that has just been su essfully parsed. 
6 : MODIFICATIONS: 
0 ; V03-006 HWS0098 Harolé Schultz 02-Aug-1984 
0 3 Treat all qualifiers as global for purposes of the 
0 s disallow expression. Bisregere notion of a ‘‘local"’ 
0 3 qualifier for the present. (the question of local 
; Z : qualifiers will be addressed in a future version) 
0 41: v03-005 HwS0089 Harold Schultz 22-Jul-1984 
: 3 Fix checking for presence of local qualifiers. 
44: V03-004 PCG0004 Peter George 03-May-1984 
2 5 Allowing checking of keywords on negated qualifiers. 
47 : v03-003 PCG0003 Peter George 06-Dec-1983 
0 re $ Add NEG operator. 
; v03-002 PCG0002 Peter George 11-May-1983 
: Make path List search independent of token sorting. 
; v03-001 PCG0001 Peter George 30-Apr-1983 
p : Make the expression evaluation more robust. 
0 e 


eet 


- Evaluate Disallow Expressions 


RSEP=198s 93:45 


if ; Macro Library calls 


6 
6 
rf: 


65 
66 


perees weer 


WRKDEF 
PTRDEF 


-PSECT DOCLSZCODE ,BYTE.RD,.NOWRT 


:¢] ‘AX/VMS Macro Vv04-00 
9 CDCL.SRCIJDISALLOW.MAR;1 


Define table structures 

Define process work wes 
Define command work a 

Define result parse descrioter 
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: -SBTTL Evaluate Disallow Expression 


DCLSEVAL_DISALLOW = Evaluate disallow expression 


This routine is called after the command verb has been parsed, to detect 


; qualifier and parameter conflicts. 
INPUTS: 

R10 = Address of command work area (WRK) 
; OUTPUTS: 


ooooo 


SOSOoOoOoOooooooooooooooooo 


RO = Value of disallow expression - true or false 
REGISTERS USED GLOBALLY IN EXPRESSION EVALUATION: 
Ri = Address of gnereeston block 


7 
48 
74 
o 
if 
33 
000 1 
33 
8 
3 0 Bg : R7 = Address of EN ock associated with Last 
000 conflicting entity 
8 0 He R8 = Address of PTR block associated with last 
000 9 conflicting entity 
8 + R9 = The number of the parameter providing the qualifier context 
Gan 3 fam 
99 5 34 DCLSEVAL_DISALLOw: : 
333 
444 4 : Check for conflicts on a per-parameter basis. 
$009 99 : CLRL BY 3; Assume there are no parameters 
000 100 ; TSTB WRK_B_PARMSUM(R10) ; Are there? 
000 101; BEQL 10$ 3: No, then skip 
4 1 ¢ 3 INCL R9 : Yes, then start with first 
59 CF AA 00 1 MOVB WRK_B_PARMSUM(R10) ,R9 ; Get total # of parameters 
51 £6 AA DO 0004 104 108:  MOVL WRKL“DISALLOW(R105,R1 ; Is there a disallow expression? 
96 1 008 133 BEQL $ 3; No, then skip 
00 3 O00A 1 $ BSBW pisoarcn 3; Yes, evaluate it 
08 50 ~=«€C€ 00D 18 BLBS RO,80$ : If success, then signal error 
01 108 ; INCL : Set for next parameter 
01 109 ; CMPB R9 ,WRK_B_PARMSUM(R10) ; Are there more parameters? 
01 110 ; BLEQU. 1 3; Yes, then continue 
ot 111 95$: STATUS NORMAL : Set normal return status 
05 1 136 RSB 3; Return 
O18 te 
1 115 ; Set up the conflict error message. Use actually command string if available. 
\ 118 3; Otherwise, use "'NO’’ + the entity name. 
58 5 1 118 80s: STL R : Was entity explicitly present? 
1 j 1A Ss BEQL 85$ 3; No, then use entity block 
98 EF 1C 1 9 EXTZV #PTR_V_VALUE ,4PTR_S_VALUE,- ; Get length of name 
6 6 FO TR_C_BESCR(RB) RE ; 
EF , 4 : EXTZV #PTR_Q_OFFSET,.#PTR_S_OFFSET.- : Get address of name 
6 4% PTR_C_BESCR(RS) ,R7 ; 
57 F492 CAG? 9E 6 124 MOVAB WRK"G~BUFFER(R10)(R7),R7 ; 


< 
D 14 | 
DISA - Evaluate Disallow Expressions 15-SEP-1984 23:44:21 \AN/VMS Macro V04-00 P 4 { 
Ob Ab bo” Evaluate Disallow Express on Fa et} $3:26;%9 tock. SRCIDISALLOW.MAR; 1 is (3) | : 
2.—=Cié~L”zv f ! 5 BRB 90$ 3 | | 
58 57 8 1 : 85$: MOVL R7,R8 3 Get address uf FUT block 
59 16.A 1 8 CvTwL =OENT ¥ NAME (RB) ,RO : Get offset to ascic fare | 
7 684 E 1 MOVA ang? RO) .R7 3: Get address of ascic name 
56 A 130 MOVZBL (R7)+,R ; Get name length/address ’ 
Ore CA GFE BF ° § 131 MOVW #°A/NO/ WRK _G_BUFFER(R10) : Preface the name with ‘'NO’’ 
F49. gf 67 6 4 1 ¢ MCVC3 R6,(R7),WRK_G nie ; Move string into the buffer 
7 £492 cA 3 49 «4 MOVAB WRK G_BUFFER(R10) ,R7 ; Set address of string 
56 ...¢ rt | : ADDL #2,R6 ; Add in Length of ‘NO 
7 #O 1 1 90$ MOVL R7,WRK_L_MARKPTR(R10) ; Set start of i 
F486 EAOA A 36 bP bo86 189 ADDL R6-R7_ORR_L. EXPANDPTR(R10) | ict one of otrine © 
00000000' D bot 1 4 MOVL #CLIS_CONFLICT.R : Set cenit tations entity status 
0 6 1 RSB 3; Return 


| 
j 
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{ 
! 
! 
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{ 
! 
! 
{ 
f 
' 
f 
f 
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64 146 ; -SBTTL Dispatch to Disallow Exoression Evaluator 
4 143 : DISPATCH = Dispatch to disallow expression evaluator 
4 165 : This routine is called to invoke the appropriate routines for evaluating 
r 128 3 a disallow expression. 
4 148 : INPUTS: 
64 150 : Rl = Address of expression block 
2 | 3 R10 = Address of command work area (WRK) 
g 133 : OUTPUTS: 
0064 155 : RO = Value of disallow expression - true or false 
064 128 3 
gta ee 
Bee 135 DISPATCH: 
03 Al 8F 0064 # 161 CASEB EXP_B_SUBTYPE(R1),- : Dispatch to action routine 
0 067 16 #EXP_R_ PATH, MEXP_K_NEG é 
78 se 197 10$: “UORD alba hy 3: Action routines 
ar39: Suer 16¢ Caan huasigg ; 
bisa" 071 189 [WORD OR-10$ : 
tT : 
50 D4 007 133 CLRL : Clear value if error 
05 0079 171 RSB ; Return 
007A 172 


eset 


57 


654 
0 


56 


68 
68 


7E 852 
52.01 
06 Al 
FOAA CA 
04 Al 
DE AA 
A? = 02 
14 A7 
58 =0C 
0 iC 
a ff 
i 

0 i 
i 
5301 


F 14 
- Evaluate Disallow Expressions 15-SEP-1984 93:36:44 paws Macro v04-00 


Evaluate Path Expression 46-SEP-1984 


—0o- Mm Mo oor 
mn OCW FSO FW 


D1 


DCL.SRCIDISALLOW.MAR; 1 
seas -SBTTL Evaluate Path Expression 

; PATH = Evaluate path expression 

; This routine is called to evaluate a path expression. 


; INPUTS: 


R1 = Address of expression block 

R9 = Number of parameter to conduct local qualifier search at 
R10 = Address of command work area (WRK) 

OUTPUTS: 


I = Value of expression - true or false 

R5,R6 are trashed 

R7 = Address of ENT block associated with last 
conflicting entity 

R8 = Address of PTR block associated with last 
conflicting entity 


+4 


: Init state for the search. 


PATH: MOVQ  R2,-(SP) 
MOVL # 
MOVZWL EXP_W_TRO_COUNT(R1),R3 
MOVAB WRK~G_RESOLT-PTR_K_LENGTH(R10) ,R8 
MOVAB EXPTL“OPERAND_LIST=4(R1) ,R5 


Save R2,R3 


If the path specifies a parameter, find the first parameter value that 
we could possibly be a value of the specified parameter. 


ADDLS WRK _L_TAB_VEC(R10),(R5)CR2],R7 
CMPB 


BEQL 
MOVZBL ENT_B_NUMBER(R7) .R6 
#PTR_K_LENGTH 


wn 
ae 
> 
o 
o 
~ 


We are processing and have found a parameter specification. If we are 
not looking for a specific keyvore. return success now. If w 
set up the index and ptr block starting address for the search. 


PRIPIMINIMININININID) 9 9 9 I  MQOOGDOGDOOOO OO 0O0O0 WOOO 0090009090909 09090909 SII NININ 
SONA AE WN BS OOD NA NE WWINI OOO NIA UNE WIN  S OD NAN EW OS OD NAUL WN OWOODNAOUS 


RIPIPIPIPDPINIPOPDPOPIPIPIMIADPIAIPYIPIPIPIPIPUPINIAPINPINIPO NII 8 9d at 9 9 8 Se 


R9 = The number of the parameter providing the qualifier context 


Init value Level 

Get operand count 

Get addr of PTR blocks 

Get addr of entity block lL 


; Get entity block address 
#ENT_R_QUALIFIER,ENT_B_SUBTYPE(R7) 3: Is it a qualifi 


er? 


Yes, then process it 
Get parameter number 


; Get next PTR block 


R8 : 
CMPZV  #PTR-V—TYPE ,#PTR_S_TYPE, (RB) .- ; End of Line? 
#PTR-K-ENDLINE ; 
BEQL 85$ : Yes, return false 
CMPZV) «= #@PTR_V_TYPE ,#PTR_S_TYPE, (R8) ,- ; Parameter? 
#PTR-K~PARAMETR ; 
BNEQ 5 3 No, skip it 
CMPB PTR_B_PARMCNT(R8) .R6 : Is is the one we want? 
BNEQ 5$ 3; No, get next PT 


e are, then 


CMPL #1,R3 ; Only one entity address? 
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Evaluate Path Expression 27$Ep= 188s S8icaidy HOR MES HBEce MOG ee. ~~ oD 
4 1 B7 BEQL 80$ 3; Yes, return true 
: Mi B9 DECL 3 Pus in synch with level 
3 i Se BB ADOL #4,R5 3; Shift the table address 
¢ ‘ 4 SUBL § #PTR_K_LENGTH,R8 : Start with this token 
F i BRB 10$ 3; Process keywords 
¢ H 
: 8 3; Process qualifier. 
4c 1 40 7$: BSBB «QUA : Process qualifie 
F 6 18 4 BLBC nO, 958 3; Return felee if not found 
53 1 Oj C 4 CMPL ) ER 3: Only one entity address? 
13 00CB 34 BEaL«=s«97$ ; Yes, return 
pg DOCD 44 INCL Qs : Incr the value level 
56 0 DO OOCF og MOVL #8,R6 3; Set parameter count 
47 ; 
$3 : Find the specified keyword entities. 
6542 DE AA (C1 50 10$:  ADDL3 WRK_L_TAB_VEC(R10), (R5)CR2J,R7 i Get entity block address 
oc co 5) 208: ADOL #PTR_R_ HR ; Get next PTR block 
1¢ ED 00DB 3 CMPZV #PTRIVITYPE,APTR_S_TYPE, (R8) ,- ; End of line? 
04 DF 25 #PTR-K-ENDLINE ; 
21 13 QOEC 54 BEQL 5$ : Yes, return false 
56 0648 «(97 » 255 CMPB = PTR_B_PARMCNT(R8) ,R6 : Right parameter count? 
1 14 3 2 BGTR $ 3; No, return e 
52 0448 91 OOF 5 CMPB ss PTR_B_LEVEL(R8) ,R2 : Value depth too shallow? 
1 1F QOEC 58 BLSSU 85$ : Yes, return false 
€8 12 OOES 59 BNEQ 20$ : Skip if not exact 
57 OBA D1 OOFE 60 CMPL PTR_L_ENTITY(R8) ,R7 ; Is is the one we want? 
3 ig OOF4 61 BNEQ 3 3; No, get next PT 
D8 52 F F6 66 AOBLEQ R3,R2,10$8 : Yes, get next entity 
0768 #14 += « €0 OFA 63 3BS #PTR_V_NEGATE, (RB) ,90$ : If negated, return false 
FE 65 ; 
43 66 ; Clean up and return 
ct oF 
50 01 00 Fe 68 80S: MOVL #1,RO0 : Return true 
06 11 10 $9 BRB 95§ : 
58 04 O01 ; 71 853: CLRL R8 3: Mark entity not found 
50 bs 1 Le oes: CLRL RO 3; Return false 
52 BE D 0107 73 95$: mova (SP)+,R2 3 Restore R2,R3 
05 19a fe RSB 3; Return 
EF 68 14 €1 ise 6 97$ BBC #PTR_V_NEGATE, (R8) ,80$ : If not negated, return tru 
F2 11 O10F 7 BRB 85$ ; Else, return false 


' 
_ 
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von boo” Evaluate Path Expression arSEE= 18s 88:20:95 EORMES TREC MOG eee, = Page 8, 
++ 
QUAL = Find qualifier on command Line. 
Outputs: 


Re = true/false status 
R8 = PTR block address 


CLRL R6 3 Assume qual not found 
BBC #ENT_V_PARM,ENT_W_FLAGS(R7) ,50$ 3; Skip local search if unnec 


Find local parameter context. 
(We are preparers so ge he all qualifiers as global. Therefore, the following 
; checks ali of the local qualifiers on the command Line for presence) 


TSTL = RO 

oF 50$ 

MOVAB —WRK_G_RESULT-PTR_K_LENGTH(R10) ,RB 
40$: ADDL #PTR_K_LENGTH 


R8 
CMPZV #PTRIVTYPE,#PTR_S_TYPE, (R8),- 
#PTR_K_PARARETR 


WOOO O000 000900000000 0D 000000 ~V 


DNMNS OS CO OWWWWINWA NAAN AWA AIA AINA AAAI ANI 2 9 2 2 2 
AAAI POPIPIPIPINIPININDDS) 3 = I I | @QOOOOOOSO 00o 
MEIN O OOONAUES UW $§ 9 OO NAULS WN ("OOONAUSE —OOc MEW OONOULS UNO 
F oow @ 
z32qQ> za 
< mom m 
> oro ©o 
@ Cc 
zc 
=—ax 
a 
= 
mo 
Sete Se Sete Sete ® 


9 
Are there any parameters? 
No, then ship 

Get addr of PTR blocks 


Parameter value? 


No, get next PTR 
Incr param count 
Are we there yet? 
No, get next PTR 


RO 
CMPL —s RO, RO 
408 


Check for local qualifiers. 
:45$: ADDL #PTR_K_LENGTH,R8 
CMPZV  #PTR-V~TYPE ,#PTR_S_TYPE, (R8) ,- 
#PTR-K~PARAMETR 


CMPL PTR_L_ENTITY(R8),R7 
45$ 


; Get next PTR block 

: End of Line or next 

: parameter value? 

; Yes, then done 

; Is is the one we want? 
; No, get next PTR 

; Yes, save PTR 

; Get next PTR 


MOVL RB,R6 
BRB 45§ 


05 3 INCL 


3; Check for global qualifiers. 


a a a ee ee a ae ee ee ae ee ee ce a ee ee ee ce a ee ee ee ce a a ee ee a a a a a a a a a ad ad od 
PIPPI at at tt a wt a at a tt ot ot tt tt ee 


SOOOOOOSOOOCOOOSOOOSOOOOOOCOOOOOOOSOOOOOOOOOoOoOO 


2104 A7 08 €1 Sos: BBC #ENT_V_VERB,ENT_W_FLAGS(R7) ,40$ ; Skip global search if unne 
3 TSTL rh 3; Was qual found 
3 BNEQ 40$ : Yes, then ak ip 
58 F9AA 2 3 R ESULT-PTR_K_LENGTH(R10) ,RB ; Get addr of PTR blocks 
58 eS: 55$: DOL PTR_R_LENGTH ; Get next PTR block 
68 04 1C €D CMPZV - #PTR-V“TYPE ,APTR_S_TYPE, (RB) ,- ; End of Line? 
04 #PTR-K“ENDLINE ; 
2 13 BEQL 408 ; Yes, then done 
68 04 bs ED CMPZV) «= #@PTR_V_TYPE ,@PTR_S_TYPE, (R8),- ; Command qualifier? 
PTR7K~COMDQUAL ; 


58 
50 


Mum y>MNMo——0-DONIWMOo 
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| 
| 
1 BNEQ 55$ 3 No, get next PTR 
0 $ CMPL PTR_L_ENTITY(R8) ,R7 3; is 2 the one we want? 
1 BNEQ 558 :; No, get next PTR 
9 MOVL RB,R6 3; Yes, save P 
1 BRB 55$ : Get next PTR 


; Look at all the local qualifiers on the command Line. 
(Checked after global qualifiers to establish a defined 


HENT_V_PARM,ENT_W_FLAGS(R7) ,608 


order) 


Prectetee 
oS 
bed 


Skip local search if unnec 
Are there any parameters? 
No, then ship 

Get addr of PTR blocks 
Get next PTR block 

End of Line? 


60$ 
WRK_G_RESULT=PTR_K_LENGTH(R10) ,R8 
#PTR_R_LENGTH,R8 

#PTR VITVPE BTR_S_TYPE, (RB) »- 


* 
wn 
oe 
ee 


t 
#PTRIK-ENDLIN 


-—9o=—90—2 Mm Mmowo—-om 
-oNMN—v OCW VoOMNu— 


DDRII ES BS BS BB NIAAA AAI 
WWAINIAI A FINO COA HIM DS VITVOM OOOOONSPMO 


PPPS BB BB EEE EI 


OOWONA NEW O OONAUS WO O00 
- 
So 
<= 
> 
@w 


at a ts — 2 — 2s © 2 2s 2 1 2 2 ss 3 2 1 


QL 60 Yes, then done 
CMPZV «= #PTR_V_TYPE ,@PTR_S_TYPE, (R8) ,= Parameter qualifier? 
#PTR-K~PARMQUAL 
BNEQ 45$ No, get next PTR 
CMPL  PTR_L_ENTITY(R8),R7 
BNEQ 45$ No, get next P 
MOVL RB,R6 Yes, save PTR 
BRB 45§ Get next PTR 
6 61; ; 
? $6 ; Set up registers and return. 
DS 016 64 60$:  CLRL RO ; Assume not found 
D 65 65 MOVL R6,R8 : Save found PTR address 
1 68 66 QL 90$ : Branch if none found 
b0 6A 67 MOVL #1,R0 : Set present 
05 016D 68 90$: B 3; Return 


| 
| 
| 
| 
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} -SBTTL Evaluate Not Expression 


i“ 


NOT = Evaluate not expression 


Wns 


This routine is called to evaluate a not expression. 
INPUTS: 


R1 = Address of expression block 
R10 = Address of command work area (WRK) 


¢ OUTPUTS: 
RO = Value of expression - true or false 
aoe 


eed ed ed ed ed od = = SS dS 2 2 2 2 
pa 
ee 


SSN NPA AAA AAA AAA AAA AAA AO 


> ONL SMmMmmmmmemmemnmmmmmmmmm 


OOOO 000009 6909 0909090908 SI NINN NINN 


WO OONOULSWNM—OO°e 


C1 ADDL3 WRK_L_TAB_VEC(R10),- 3; Get subexpression address 
EXP-L-OPERAND Ll! STC R1),R1 : 

30 BSBW DISPA TCH 3: Evaluate the subexpression 

dD INCL RO 3 Toggle the result 

0 RSB : urn 


-SBTTL Evaluate Any2 Expression 
¥ ANY2 = Evaluate any2 expression 
§ This routine is called to evaluate a any2 expression. 


OOO 


= 
PPr pr 


INPUTS: 


1s Address of expression block 
10 = Address of command work area (WRK) 


OUTPUTS: 
RO = Value of expression - true or false 


PEPER EERE E EEE PEEP EEE EEE EEE EP 


17 
yA a0): 
17A ¢: 
17A 
17A 4; 
17A 5; 
17A g: 
17A 
17A 8; 
17A 9; 
17A 10 444 
igh 13 ANY2 
7D 17A ig MOVQ R2,-(SP) 3: Save R2,R 
D4 0170 414 CLRL 0s = (§P) > Assume ties 
BO 17F 15 MOVL R1,R3 3: Copy eupreasten block addr 
C 0182 16 MOVZWL EXP_W_TRO_COUNT(R3) ,R2 : Get operand count 
ci 01 3 17 10$ ADDLS WRK_L_TAB_VEC(R10),- 3; Get subexpression address 
1 18 - EXPLL OPERAND_LIST=-4(R3)CR2],R1 3 
30 018D 1 BSBW DISPATCH 3; Evaluate the subexpression 
E9 019 0 BLBC RO,20$ 3; Branch if false 
Ee 19 1 BBSS #0,(SP),30$ : Branch if second true 
F 19 § 20$ SOBGTR ~ laa 3; Loop until done 
D4 O19A CLRL R : Return false 
bs Bige 4 30$ TSTL (SP)+ 3 Pop state 
D O19E 5 mova (SP)+,R2 3; Restore R2,R3 
05 Bias § RSB 3; Return 
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1A 2 ; -SBTTL Evaluate And Expression 
1A 4 ; AND = Evaluate and expression 
1A 4 : ; This routine is called to evaluate a and expression. 
1A 4 5 : INPUTS: 
1A2 ; : Rl = Address of expression block 
hy 2 8 ; R10 = Address of command work area (WRK) 
1A 440 > OUTPUTS: 
Hr tts 3 RO = Value of expression - true or false 
1A2 4G 5444 
145 248 AND 
43 52 7D 1A te$ . M0.Q R2,-(SP) 3; Save R2,R3 
5 51 0 OIA 448 MOVL R3 : Copy expression block addr 
52. 06 A3 3C O1AB 449 MOVZWL EXP_W_TRO_COUNT(R3) .R2 ; Get operand count 
DE AA C1 QOIAC 450 10$ ADDLS WRK_L_TAB_VEC(R10),- 3; Get subexpression address 
51 04 A342 TAF 451 XP-L-OPERAND_LIST=-4(R3)CR2),R1 é 
FEAE 30 0183 $35 BSBW DISPATCH 3 Evaluate the subexpression 
06 23 E9 0186 45 BLBC RO,30$ 3; Branch if false 
FO 5 F5 aie? 454 SOBGTR R2,10$ ; Loop until done 
50 «(01 4 18C 3866 455 MOVL RO : Return true 
52 8E 7D O1BF 456 308 MOVG = (SP) +, R2 ; Restore R2,R3 
05 pice ret RSB : Return 
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i¢ 2 > -SBTTL Evaluate Or Expression 
\¢ 2 ; OR = Evaluate or expression 
1¢ 4 4 ; This routine is called to evaluate a or expression. 
1¢ 486 : INPUTS: 
1C $08 : Ri = Address of expression block 
it 133 : R10 = Address of command work area (WRK) 
1¢ if : OUTPUTS: 
i¢ 473 ; RO = Value of expression - true or false 
103475 s+44 
163 059 on 
7E 52 7 O1C3 478 MOVa = R2, = (SP) : Save R2,R3 
§ 51 0 1¢6 i38 MOVL R1,R3 3 Copy expression block addr 
52°06 A1 3C 01€9 480 MOVZWL EXP_W_TRO_COUNT(R1),.R2 : Get operand count 
DE AA Ci O1CD 481 108: ADDLS WRK_L_TAB_VEC(R10),- 3; Get subexpression address 
51 04 A342 0100 $36 EXP_L OPERAND_LIST=-4(R3)CR2),R1 : 
FE8D 30 0104 48 BSBW DISPATCH : Evaluate the subexpression 
05 5 E8 0107 484 BLBS RO,30$ : Branch if false 
FO 5 F5 O1DA 485 SOBGTR R2,10$ 3 Loop until done 
5 Bs 1DD one LRL RO 3; Return false 
52 BE D at 487 30$: MOVa (SP)+,R2 ; Restore R2,R3 
05 Sieg rt) $B 3; Return 
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4 DCL.SRCIDISALLOW.MAR; 1 (11) 
: -SBTTL Evaluate Xor Expression 

3 MOR = Evaluate xor expression 

This routine is called to evaluate a xor expression. 

INPUTS: 


Ri = Address of expression block 
R10 = Address of command work area (WRK) 
OUTPUTS: 

RO = Value of expression - true or false 


OR: ; 
MOVQ R2,-(SP) 3 Save R2,R3 
CLRL 3s = (§P) : Assume false 
MOVL R1,R3 3: Copy expression block addr 
MOVZWL EXP_W_TRO_COUNT(R3) ,R2 3 Get operand count 
108: ADDLS WRK_L_TAB_VEC(R10),- :; Get subexpression address 
EXP_L OPERAND_LIST=-4(R3)CR2],R1 $ 
BSBW DISPATCH : Evaluate the subexpression 
BLBC RO,20$ ; Branch if false 
CLRL RO 3; Set false 
BBSS #0,(SP),30$ ; Branch if second true 
20$ SOBGTR R2,10$ 3; Loop until done 
MOVL (SP) ,RO 3; Return value 
30$ TSTL (SP)+ 3; Pop state 
mova (SP)+,R2 : Restore R2,R3 
RSB $ turn 
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meee ge of ENT block associate@ with last 
onflicting entity 
R8 = Address of PTR lock associated with Last 
conflict ing entity 
R9 = The number of the parameter providing the qualifier context 


1984 AX/VMS Macro v04-00 Page 15 
voee 00" Evaluate Neg Path Expression 4-SEP=1 1384 33:25 40: 3 DCL.SRCIDISALLOW.MAR; 1 ’ (12) 
§ , -SBTTL Evaluate Neg Path Expression 

: NEG = Evaluate neg path expression 

: paren routine is called to evaluate a neg path expression. ‘ 

: : INPUTS: 

; Rl = Address of expression block 

: R9 = Number of parameter to conduct poser qualifier search at 

3 R10 = Address of command work area (WR 

> OUTPUTS 

: RO = Value of expression - true or false 

3 Ra -R6 are trashed 

$ = 


+++ 


F Init state for the search. 


DE AA C1 NEG: ADDL3) WRK_L_TAB_VEC(R10),- 3; Get subexpression address 
51 08 Al EXP- +t “OPERAND_ LIST(R1),R1 : 
7 52 7D MOovo R2,-(S5P) ; Save R2,R3 
5 01 0 MOVL : Init value Level 
06 Al 3¢ MOVZWL EXP_W_TRO_COUNT(R1),R RS : Get operand count 
58 FIAA CA 9E MOVAB WRK_G_RESOLT-PTR_K att} H(R10) ,R8 ; Get addr of PTR blocks 
55 O04 Al 9E MOVAB €XP_L_OPERAND rLIST=SCR oR5 3: Get addr of entity block | 


; If the path specifies a parameter, find the first parameter value that 
: could possibly be a value of the specified parameter. 


NAME WN @§ OOOO NAULS WN © OOO NAUES WN 9 OONAU SW OVOONAULS WO 0 


SSNS NSA AA AAA AAAI BE EEL EE 


57 6548 DE AA C1 ADDL3 WRK_L_TAB_VEC(R10),(R5)CR2),R7 3; Get entity block _pddress 
03 A7 O02 91 CMPB #ENT_ R QUALIFIER, ENT 8. SUBTYPE (R7) ; Is it a qualifier 
2A «13 BEQL : Yes, then process a 
56 14 A7 QA MOVZBL ENT_B_NUMBER(R7) ,R6 ; Get parameter number 
58 oc co 5$: ADDL #PTR_K_LENGTH,R 3; Get next PTR block 
68 04 if ED CMPZV ai “Kr “Tire Bt S_TYPE,(R8),- : End of Line? 
g 13 BEQL 5$ ~ 3; Yes, return false 
68 04 Ag ED CMPZV) «= #PTR_V_TYPE, rsd _S_TYPE, (R8),- ; Parameter? 
0 #PTR- Kk “PARAMETR : 
EF i BNEQ 5$ 3; No, $ ate ts 
56 O06A8 9 CMPB PTR_B_PARMCNT(R8) ,R6 3: Is is the one we want? 
E9 12 B BNEQ 5$ ; No, get next PTR 
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: ve are procegs'ing and have found a parameter epee? ficetten, If we are 
3; not looking for a specific keyword, return failure now. If we are, then 


DISA = Evaluate Disallow Expressions 15-SEP-1984 23:44: AX/VMS Mf v04-00 Pp 1 
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Only one enti 1 address? 
se 


t 
838 Yes, return fa 
a Put in synch with Level 
Shift the table address 


rs 3 ; set up the index and ptr block starting address for the search. 
| 
Start with this token 


1 i} 4 MPL #1,R3 
3p 

C 

i 


#4 RS 
#PTR_K_LENGTH,R8 
108 


50 01 400 0$: MOVL #1,R0 3; Return true 


i 
i 
p $1 Process keywords 
4 $4 : Process qualifier. 
FEBI 39 D 3¢ ?$: BSBW = QUAL : Process qualifier 
3F 50 ~=C*éE 69 38 BLBC R aes 3; Return false if not found 
53 , we 6 9 CMPL #1,R 3: Only one entity address? 
13 rt 38 BEQL 97$ : Yes, return 
8 6 9 INCL os : Incr the value level 
56 0 Dd rs 600 MOVL #8,R6 3 Set parameter count 
6D 602 ; 
0 v4 608 : Find the specified keyword entities. | 
57 6542 DE AA (C1 8 6D 605 10S: ADDL3 WRK_L_TAB_VEC(R10),(R5)CR2],R7 3; Get entity block address | 
oc cO 0273 O26 208: ADDL #PTR_R_LENGTH,RS ; Get next PTR block 
68 04 iC €ED 6 i 607 CMPZV #PTROV-TYPE -ABTR_S_ TYPE, (RB) ,~ : End of Line? 
ot 13 0278 609 BEQL pine : Yes, return false 
56 06 A8 91 O27D 610 CMPB PTR_B_PARMCNT(R8) ,R6 3; Right parameter count? 
18 14 1 611 BGTR 85$ 3: No, return false 
52 04 Ag 91 3 61g CMPB ss PTR_B_LEVEL(R8) ,R2 : Value depth too shallow? 
1 1F 61 BLSSU 85$ : Yes, return false 
—E8 12 a 614 BNEQ 20$ : Skip if not exact 
Sv 608 AB OéOD 615 CMPL PTR_L_ENTITY(R8) ,R7 : Is is the one we want? 
Es ig 8 4 o18 BNEQ 208 3 No, get next PTR 
D8 52 f Ag AOBLEQ R3,R2,10$ : Yes, get next entity 
07 68 #14 ~=«€1 9 95 618 BC #PTR_V_NEGATE, (R8) ,90$ : If not negated, return fal 
0299 620; 
99 621 ; Clean up and return 
3 i 
3¢ 6 4 BRB 95§ : 
6 § $38: CLRL R8 ; Mark entity not found 
6 33: CLRL RO : Return false 
6 8 95$: mova (SP)+,R2 : Restore R2,R3 
6 RSB 3; Return 
a 831 
e § BRB 85$ : Else, return false 
634 


| 
| 
97$: BBS #PTR_V_NEGATE, (R8) ,80$ ; If negated, return true | 
| 


acro V04-00 
CIDISALLOW.MAR; 1 


VMS 
SRCJ 


33:26:99 bel 


dD 15 


- Evaluate Disallow Expressions 


table 


gisat 


t. 4 w w ” 2un 

I = o = = > > tw 4s@ =a eW 
Far - =e wo <« — @oO2e 2 Vavigcv> = <w -< 
C7 aT. 4 —- Jaw a WeEZzeIZzSa SH K AWK O ee FD 2twsS }S we 
—~Jj<£O00a »w»xy> SO Ve teawe 4J0 SOW ONT Se VOOOV] JWOWwr-O—- EOSew we 
Aja ee we2vvwr @OX< JOE YO00 WwewWOoHSVYE OVW EEK Kw OO IU EEO Mw ew 
ert ttt fata J fe eet ER tetas! Pian sss Set Ph the be a Peewee 
Owwd"! we ee ee > Ee IO I Eo H+4+$+ tte Ft FEE Eew5< aw 2w<tawtu> <u> 
LAESMMMNMNMMKVVNVNOE & CLV Vt MW IMO Eee eu 0 O03 1203 Uw 8.6. OWOr > zor 

eeeseeseeeceoeoveeeeeeeeeeeeeeeeee eee ae aetaetlahtlc atl ake ake ake ake ahelaktl kta ake ake aktl ake ake ake ake aeaktakaeek at 
ad dd I I I I I I I I IOI SOI 900 4G 3333333333333 BOOOOVKCeM eM MoM IIMS o> 

eeeceeovueeoeeceeoeeceeeeeceeeeee eee ketal atl atl ake ake ake kel ake atl ake akel kel aktlaktl kta aktl ake ake ak akl ahah ak ekaehse et 
BVVVVOVV VV VV VV VU VV V OV VV OV VU VU VU VU VUUUEE EE Seaeeeeaeacacacaaaac 
Seeeeeeeeeeeeeeeeeeeeeeeeeeeeee eee ee ee ee ee Re ee ee ee ee ee ee ee 
0Q00000000060000000060000000600400000000000400400640000000000040404a4 
cucucucucucy eucucucy 
Coooo[eo oooo 

<>< 
o 
ca cae ecocacnc 
MNLF FOF TNO OT OM! —DOWWM LMU OV O44 DVOSM TF FOOT VVOD VOY VU UF DOVOOVW VO 
<r « FS SSSS SSS SOS SS SON LOSS O SSO SR SRL SSSSSSS Oh Nee SO 1 aOo a 
oe CoOoooNe— ooo-OoOo-one-Oon 
oo¢ ¢ COOOSOOSOOOOOOSoOOSoSoO SOooooooooooooooocooooos 
ooe « SSSSSSSSSSSSSSSSSssssssssssssssssssssss SDOOSSOCOSCODeSCOoS 
33: SSSSSSsssssssssssssssssSSSssssssse 
SOooooococcocccocoocoooooooCOOCO OOOO OOOO OOOOOCO OOO OOOO OOOO OOOO OOS 

Coos « Sssssssss elolololelolelololeleloleloici~icil= 


- 
2 a 
a “ » 
| x a o z ox “ 
z w xO vw Ww oe ee 22 a] - 
- we ws =E35 O35 > Vor aa eH o 
oA wou Sue<-z2-2We omooeyr Or agr gu<>Sang 
WJ Le vr > a) Eww IY J W0e = S2 vw Ja ato JI ue. 
320 @-JE@OOw- xa my-g-3-¥ 4c prare Sao Bora JcOuu -Oar-v-aoaa 
we a esses Or 4 oe <2 + te $333 Sr" See 
Z& 32555 <us < w>< << wWOeuW Sx xxxxxe <%222>2 
ba} Spates or oe re It fii ee 
' &<anx>>330u~uss mo ~ JIS ddI II II III III II 
eT PRR 
ome 
° 


ENT 
ENT 
ENT 
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ENT 
ENT 
EX 
EX 
EX 
Ex 
EX 
OR 
PATH 
PRC 
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ANY 
CL 
CLl 
DCL 
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! Psect synopsis ! 


Poemowmesomnaaeeaa$ 


PSECT name Allocation PSECT No. Attributes 

- ABS . 00000000 0:} 00 ' 0. : NOPIC USR CON 
SABS FFFFFFFC an of NOPIC USR CON 
DCL$ZCODE 000002AC 684.) 02 ( d° NOPIC USR CON 


S LCL NOSHR NOEXE NORD NOWRT NOVEC 
S LCL NOSHR EXE RD WRT NOVE 
L LCL NOSHR EXE RD NOWRT NOVEC 
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ponmacsan ease an secenananaona } 


! Performance indicators ! 


per maemewewnaesmwananae sane ae $ 


table output 19 
Psect synopsis output 1 :00: 
Cross-reference output 9 :00: 3 
Assembler run totals 46 0:00: 


eae 
e working set Limit was 1050 pages. 
$3Ese bytes (64 pages) of virtual memory were used to buffer ghe intermediate code 
There were 30 pages of symbol table space we yeceree to hold 456 non-local -~ 40 Local symbols. 
634 source lines were read in Pass 1, producing 14 object records in Pass 
29 pages of virtual memory were used to define 15 macros. 


Phase Page faults CPU Time Elapsed Time 
Initialization 1 00:00. :00:01. 
Command processing 138 :00: 8-9 8: : es 
Pass 1 194 :00:06. :00: 

gyabe table sort 9 :00:00. :00:01 

Pas 11 1. : 

Symbo . 


So 
e*eeee#e#se#ee# 


fowewecceecccccecccccoecoce$ 


Macro ssveceet name Macros defined 


SDUASB: SYSLIB) M ee rf MLB; 1 0 
DCL.OBJIJDCL. 31 6 
3 agtUASe SY $.08 ib: MLB; 1 ° 
“$255$DUA B: SYSLIB STARLET. ALB; 2 

TOTALS (all Libraries) 9 


558 GETS were required to define 9 macros. 
There were no errors, warnings or information messages. 
MACRO/LIS=LIS$:DISALLOW/OBJ=0BJ$:DISALLOW MSRC$:DISALLOW/UPDATE=(ENH$:DISALLOW) +EXECML$/LIB+L1IB$:DCL/LIB+SYS$LIBRARY :SYSBLOMLB/LIB 
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FI 


DIG 
CON 


